home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / trivia.arc / MUS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-11-23  |  7.8 KB  |  233 lines
  1. 10  KEY OFF:WIDTH 80
  2. 20  LET X=0
  3. 30  LET Z=0
  4. 40  CLS:COLOR 17:LOCATE 5,37:PRINT "MUSIC"
  5. 50  COLOR 2:LOCATE 7,28:PRINT "This includes anything"
  6. 60  LOCATE 8,28:PRINT "that has to do with Music."
  7. 70  LOCATE 15,27:PRINT "Enter [B] to begin.  Input":LOCATE 15,53:INPUT B$
  8. 80  IF B$="B" THEN 90 ELSE 40
  9. 90  GOTO 1590
  10. 100  G$="HOYT AXTON"
  11. 110  COLOR 2:LOCATE 7,25:PRINT "Who wrote the Three Dog Night hit"
  12. 120  LOCATE 8,25:PRINT "JOY TO THE WORLD?"
  13. 130  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  14. 140  IF F$="HOYT AXTON" THEN 1660 ELSE 1790
  15. 150  G$="A TIME FOR US"
  16. 160  COLOR 2:LOCATE 7,25:PRINT "The Love theme from the Paramount"
  17. 170  LOCATE 8,25:PRINT "Picture ROMEO AND JULIET was:"
  18. 180  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  19. 190  IF F$="A TIME FOR US" THEN 1660 ELSE 1790
  20. 200  G$="JOHN DENVER"
  21. 210  COLOR 2:LOCATE 7,25:PRINT "Who wrote Leaving On A Jet Plane?"
  22. 220  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  23. 230  IF F$="JOHN DENVER" THEN 1660 ELSE 1790
  24. 240  G$="AMADEUS"
  25. 250  COLOR 2:LOCATE 7,25:PRINT "What was Mozart's first name?"
  26. 260  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  27. 270  IF F$="AMADEUS" THEN 1660 ELSE 1790
  28. 280  G$="POWER STATION"
  29. 290  COLOR 2:LOCATE 7,25:PRINT "Duran Duran member, Nick Rhodes"
  30. 300  LOCATE 8,25:PRINT "recently formed a group called:"
  31. 310  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  32. 320  IF F$="POWER STATION" THEN 1660 ELSE 1790
  33. 330  G$="SEALS & CROFTS"
  34. 340  COLOR 2:LOCATE 7,25:PRINT "What group wrote such songs as"
  35. 350  LOCATE 8,25:PRINT "I'LL PLAY FOR YOU and KING OF NOTHING?"
  36. 360  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  37. 370  IF F$="SEALS & CROFTS" THEN 1660
  38. 375  IF F$="SEALS AND CROFTS" THEN 1660 ELSE 1790
  39. 380  G$="JOHNNY CASH"
  40. 390  COLOR 2:LOCATE 7,25:PRINT "What famous Country Western singer"
  41. 400  LOCATE 8,25:PRINT "did time in Fulsom Prison?"
  42. 410  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  43. 420  IF F$="JOHNNY CASH" THEN 1660 ELSE 1790
  44. 430  G$="JIM CROCE"
  45. 440  COLOR 2:LOCATE 7,25:PRINT "What late, great artist wrote"
  46. 450  LOCATE 8,25:PRINT "the song OPERATOR?"
  47. 460  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  48. 470  IF F$="JIM CROCE" THEN 1660 ELSE 1790
  49. 480  G$="MARTY ROBBINS"
  50. 490  COLOR 2:LOCATE 7,25:PRINT "What late, great artist wrote"
  51. 500  LOCATE 8,25:PRINT "the song ELPASO?"
  52. 510  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  53. 520  IF F$="MARTY ROBBINS" THEN 1660 ELSE 1790
  54. 530  G$="SUICIDE IS PAINLESS"
  55. 540  COLOR 2:LOCATE 7,25:PRINT "The theme song from M*A*S*H was"
  56. 550  LOCATE 8,25:PRINT "originally titled:"
  57. 560  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  58. 570  IF F$="SUICIDE IS PAINLESS" THEN 1660 ELSE 1790
  59. 580  G$="DETROIT"
  60. 590  COLOR 2:LOCATE 7,25:PRINT "What city is Madonna from?"
  61. 600  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  62. 610  IF F$="DETROIT" THEN 1660 ELSE 1790
  63. 620  G$="BARRY MANILOW"
  64. 630  COLOR 2:LOCATE 7,25:PRINT "Who wrote the MacDonald's theme song"
  65. 640  LOCATE 8,25:PRINT "YOU DESERVE A BREAK TODAY?"
  66. 650  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  67. 660  IF F$="BARRY MANILOW" THEN 1660 ELSE 1790
  68. 670  G$="STUART COPELAND"
  69. 680  COLOR 2:LOCATE 7,25:PRINT "Who was responsible for the"
  70. 690  LOCATE 8,25:PRINT "formation of THE POLICE?"
  71. 700  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  72. 710  IF F$="STUART COPELAND" THEN 1660 ELSE 1790
  73. 720  G$="THE FREE"
  74. 730  COLOR 2:LOCATE 7,25:PRINT "What band broke up so that"
  75. 740  LOCATE 8,25:PRINT "Bad Company could be formed?"
  76. 750  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  77. 760  IF F$="THE FREE" THEN 1660 ELSE 1790
  78. 770  G$="GLEN FREY"
  79. 780  COLOR 2:LOCATE 7,25:PRINT "The writer of the BEVERLY HILLS COP"
  80. 790  LOCATE 8,25:PRINT "theme song was:"
  81. 800  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  82. 810  IF F$="GLEN FREY" THEN 1660 ELSE 1790
  83. 820  G$="GORDON SUMNER"
  84. 830  COLOR 2:LOCATE 7,25:PRINT "What's Sting's real name?"
  85. 840  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  86. 850  IF F$="GORDON SUMNER" THEN 1660 ELSE 1790
  87. 860  G$="GENESIS"
  88. 870  COLOR 2:LOCATE 7,25:PRINT "What band is Phil Collins from?"
  89. 880  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  90. 890  IF F$="GENESIS" THEN 1660 ELSE 1790
  91. 900  G$="TOMMY"
  92. 910  COLOR 2:LOCATE 7,25:PRINT "What bizarre musical starred THE WHO?"
  93. 920  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  94. 930  IF F$="TOMMY" THEN 1660 ELSE 1790
  95. 940  G$="SPEAK SOFTLY LOVE"
  96. 950  COLOR 2:LOCATE 7,25:PRINT "The love theme from THE GODFATHER was:"
  97. 960  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  98. 970  IF F$="SPEAK SOFTLY LOVE" THEN 1660 ELSE 1790
  99. 980  G$="NIEL DIAMOND"
  100. 990  COLOR 2:LOCATE 7,25:PRINT "Who wrote the song SWEET CAROLINE?"
  101. 1000  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  102. 1010  IF F$="NIEL DIAMOND" THEN 1660 ELSE 1790
  103. 1020  G$="CREEDENCE CLEARWATER"
  104. 1030  COLOR 2:LOCATE 7,25:PRINT "What band does John Fogerty hail from?"
  105. 1040  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  106. 1050  IF F$="CREEDENCE CLEARWATER" THEN 1660
  107. 1060  IF F$="CREEDENCE CLEARWATER RIVIVAL" THEN 1660
  108. 1070  IF F$="CCR" THEN 1660 ELSE 1790
  109. 1080  G$="BRUCE JOHNSTON"
  110. 1090  COLOR 2:LOCATE 7,25:PRINT "Who wrote the song I WRITE THE SONGS?"
  111. 1100  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  112. 1110  IF F$="BRUCE JOHNSTON" THEN 1660 ELSE 1790
  113. 1120  G$="THE GAMBLER"
  114. 1130  COLOR 2:LOCATE 7,25:PRINT "Don Schlitz wrote what Kenny Rogers' hit?"
  115. 1140  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  116. 1150  IF F$="THE GAMBLER" THEN 1660 ELSE 1790
  117. 1160  G$="MICHAEL MACDONALD"
  118. 1170  COLOR 2:LOCATE 7,25:PRINT "Following the breakup of The Doobie"
  119. 1180  LOCATE 8,25:PRINT "Brothers, what member went on to record"
  120. 1190  LOCATE 9,25:PRINT "MINUTE BY MINUTE?"
  121. 1200  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  122. 1210  IF F$="MICHAEL MACDONALD" THEN 1660 ELSE 1790
  123. 1220  G$="LORETTA LYNN"
  124. 1230  COLOR 2:LOCATE 7,25:PRINT "Who was THE COAL MINER'S DAUGHTER?"
  125. 1240  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  126. 1250  IF F$="LORETTA LYNN" THEN 1660 ELSE 1790
  127. 1260  G$="ROSSINGTON COLLINS BAND"
  128. 1270  COLOR 2:LOCATE 7,25:PRINT "Following the tragic Lynyrd Skynyrd"
  129. 1280  LOCATE 8,25:PRINT "plane crash, the surviving members"
  130. 1290  LOCATE 9,25:PRINT "formed a group called:"
  131. 1300  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  132. 1310  IF F$="THE ROSSINGTON COLLINS BAND" THEN 1660
  133. 1320  IF F$="ROSSINGTON COLLINS BAND" THEN 1660 ELSE 1790
  134. 1330  G$="ERIC CLAPTON"
  135. 1340  COLOR 2:LOCATE 7,25:PRINT "Who played lead guitar in the BEATLES"
  136. 1350  LOCATE 8,25:PRINT "song WHILE MY GUITAR GENTLY WEEPS?"
  137. 1360  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  138. 1370  IF F$="ERIC CLAPTON" THEN 1660 ELSE 1790
  139. 1380  G$="SKYDIVING"
  140. 1390  COLOR 2:LOCATE 7,25:PRINT "Eddie Van Halen has a dangerous hobby."
  141. 1400  LOCATE 8,25:PRINT "What is it?"
  142. 1410  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  143. 1420  IF F$="SKYDIVING" THEN 1660
  144. 1430  IF F$="SKY DIVING" THEN 1660 ELSE 1790
  145. 1440  G$="STEPHANIE MILLS"
  146. 1450  COLOR 2:LOCATE 7,25:PRINT "What stage and recording star is"
  147. 1460  LOCATE 8,25:PRINT "best-known for her work in THE WIZ?"
  148. 1470  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  149. 1480  IF F$="STEPHANIE MILLS" THEN 1660 ELSE 1790
  150. 1490  G$="THE YARDBIRDS"
  151. 1500  COLOR 2:LOCATE 7,25:PRINT "Jimmy Page originally wrote the song"
  152. 1510  LOCATE 8,25:PRINT "DAZED AND CONFUSED for what group?"
  153. 1520  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  154. 1530  IF F$="THE YARDBIRDS" THEN 1660
  155. 1535  IF F$="YARDBIRDS" THEN 1660 ELSE 1790
  156. 1540  G$="BOB MARLY"
  157. 1550  COLOR 2:LOCATE 7,25:PRINT "Who wrote the Eric Clapton hit"
  158. 1560  LOCATE 8,25:PRINT "I SHOT THE SHERRIFF?"
  159. 1570  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  160. 1580  IF F$="BOB MARLY" THEN 1660 ELSE 1790
  161. 1590  CLS:GOSUB 100:GOSUB 150:GOSUB 200:GOSUB 240:GOSUB 280:GOSUB 330
  162. 1600  GOSUB 380:GOSUB 430:GOSUB 480:GOSUB 530:GOSUB 580:GOSUB 620
  163. 1610  GOSUB 670:GOSUB 720:GOSUB 770:GOSUB 820:GOSUB 860:GOSUB 900
  164. 1620  GOSUB 940:GOSUB 980:GOSUB 1020:GOSUB 1080:GOSUB 1120:GOSUB 1160
  165. 1630  GOSUB 1220:GOSUB 1260:GOSUB 1330:GOSUB 1380:GOSUB 1440:GOSUB 1490
  166. 1640  GOSUB 1540
  167. 1650  GOTO 1920
  168. 1660  GOSUB 1661:GOTO 1680
  169. 1661  CLS:LET L$=CHR$(186)+SPACE$(29)+CHR$(186)
  170. 1662  COLOR 5:LOCATE 5,1,0:PRINT TAB(25);CHR$(201);STRING$(29,205);CHR$(187)
  171. 1663  COLOR 1:PRINT TAB(25);L$
  172. 1664  COLOR 2:PRINT TAB(25);L$
  173. 1665  COLOR 3:PRINT TAB(25);L$
  174. 1666  COLOR 4:PRINT TAB(25);L$
  175. 1667  COLOR 5:PRINT TAB(25);L$
  176. 1668  COLOR 6:PRINT TAB(25);L$
  177. 1669  COLOR 7:PRINT TAB(25);L$
  178. 1670  COLOR 8:PRINT TAB(25);L$
  179. 1671  COLOR 9:PRINT TAB(25);L$
  180. 1672  COLOR 10:PRINT TAB(25);L$
  181. 1673  COLOR 11:PRINT TAB(25);L$
  182. 1674  COLOR 12:PRINT TAB(25);L$
  183. 1675  COLOR 13:PRINT TAB(25);L$
  184. 1676  COLOR 14:PRINT TAB(25);L$
  185. 1677  PRINT TAB(25);CHR$(200);STRING$(29,205);CHR$(188)
  186. 1678  RETURN
  187. 1680  PLAY "T180 O6 < A8 B8 > C8 D8 P8 C8 D2"
  188. 1682  COLOR 18:LOCATE 7,36:PRINT "CORRECT"
  189. 1690  LET X=X+1:COLOR 6:LOCATE 9,34:PRINT "Your Status:"
  190. 1700  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  191. 1710  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  192. 1720  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  193. 1730  LOCATE 17,27:PRINT "Enter [N] for next question"
  194. 1740  LOCATE 18,27:PRINT "or [Q] to quit.  Input"
  195. 1750  LOCATE 18,49:INPUT Q$
  196. 1760  IF Q$="N" THEN 1780
  197. 1770  IF Q$="Q" THEN 1920 ELSE 1730
  198. 1780  CLS:RETURN
  199. 1790  GOSUB 1661
  200. 1800  PLAY "O1 A4"
  201. 1810  COLOR 20:LOCATE 7,35:PRINT "INCORRECT"
  202. 1820  LET Z=Z+1:COLOR 6:LOCATE 9,34:PRINT "Your Status"
  203. 1830  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  204. 1840  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  205. 1850  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  206. 1860  LOCATE 17,27:PRINT "Enter [N] for next question"
  207. 1870  LOCATE 18,27:PRINT "or [Q] to quit.  Input"
  208. 1880  COLOR 2:LOCATE 21,27:PRINT "The Answer was:":COLOR 3:LOCATE 21,43:PRINT G$
  209. 1890  COLOR 6:LOCATE 18,49:INPUT Q$
  210. 1900  IF Q$="N" THEN 1780
  211. 1910  IF Q$="Q" THEN 1920 ELSE 1860
  212. 1920  CLS:IF X=31 THEN 2010 ELSE 1925
  213. 1925  GOSUB 1661
  214. 1930  PLAY "T180 O5 < A8 B8 > C8 D8 P8 C8 D2"
  215. 1940  COLOR 6:LOCATE 9,35:PRINT "Your Score"
  216. 1950  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  217. 1960  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  218. 1970  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  219. 1980  LOCATE 17,27:PRINT "Enter [X] to Exit.  Input"
  220. 1990  LOCATE 17,52:INPUT Y$
  221. 2000  IF Y$="X" THEN 2110 ELSE 1980
  222. 2010  GOSUB 1661
  223. 2020  PLAY "T180 O1 < A8 B8 > C8 D8 P8 C8 D2"
  224. 2030  PLAY "T180 O2 < A8 B8 > C8 D8 P8 C8 D2"
  225. 2040  PLAY "T180 O3 < A8 B8 > C8 D8 P8 C8 D2"
  226. 2050  COLOR 17:LOCATE 6,32:PRINT "CONGRADULATIONS!"
  227. 2060  COLOR 20:LOCATE 7,33:PRINT "PERFECT SCORE!"
  228. 2070  PLAY "T180 O4 < A8 B8 > C8 D8 P8 C8 D2"
  229. 2080  PLAY "T180 O5 < A8 B8 > C8 D8 P8 C8 D2"
  230. 2090  PLAY "T180 O6 < A8 B8 > C8 D8 P8 C8 D1"
  231. 2100  GOTO 1940
  232. 2110  CLS:COLOR 6:PRINT "One moment please...":LOAD"QUIZZLE",R
  233.